home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Network Logoff 1.xpl < prev    next >
Text File  |  2001-09-01  |  2KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Startup/Shutdown\Shutdown\Windows NT/2K/XP\00) Shutdown Menu"
  5. "NAME"="Windows NT Logoff Options"
  6. "VERSION"="1.10"
  7. "OSVERSION"="01000"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Show "Shut down and Power off" in Shut down dialog"
  10. "DESCRIPTION 1"="This option, if enabled, gives you an option to  shut down and power off your Windows NT system."
  11. "DESCRIPTION 2"="Please note that this option requires installed Power Management drivers from your computer/motherboard vendor to be installed. If these drivers are not installed and the option is activated, the only change is that the computer reboots when you select "Shut down"."
  12. ---"DESCRIPTION 1"="Activate "Show Shut down & Power off" if this option should be available if an user selectes to shut down the computer. Else it's only possible to shut down the computer and switch it manually off."
  13. ---"DESCRIPTION 3"="Some computers do not support the power off option properly under Windows NT.  If your computer fails to shut down properly or automatically reboots when you enable this option, disable it in X-Setup the next time you boot the computer up."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to Alexander Khoroshev <aelric@atnet.ru> for the bug notice!"
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26. sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\"
  27. sV2="PowerdownAfterShutdown"
  28.  
  29. Sub Plugin_Initialize 
  30.     i=RegReadValue(sp & sv2)
  31.     if i=1 then SetUIElement 1,true
  32. End Sub
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  if b=true then
  40.   Call RegWriteValue(sp & sv2,"1",1)
  41.  else
  42.   Call RegWriteValue(sp & sv2,"0",1)
  43.  end if
  44.  
  45. End Sub
  46.  
  47. Sub Plugin_Terminate 
  48. End Sub
  49.  
  50.  
  51.  
  52.